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We were recently contacted by David Lutz from The Australian Beginning 
(T.A.B.) who had all sorts of good things to tell us. The most important being 
that the T.A.B. is under new management and that their policy is to encourage 
more users by keeping charges as low as possible. Joining fees will be reduced 
and anyone who joins through a user group will be regarded as a charter member 
and will get a 20% discount on user charges. We have also settled the matter 
of the $5 credit owed to KAOS members who paid $40 to join the T.A.B., if they 
contact David Lutz at 24 Camberwell Rd, Hawthorn East, 3123 ph.03 813 1133 and 
give him their user name, he will ensure that they receive a $5 credit. 


For interstate: members, T.A.B. hopes to be on AUSTPAC by the end of July 
and we have been told that AUSTPAC will be free for the first six months, after 
that we believe the charge will be a local call fee plus $3 per hour. There is 
a new and much enlarged manual available, incorporating all changes made up to 
date, a "Chat. Mode" which allows 5 users at a time to contact each other via 
their keyboard and screen, The T.A.B. will also let us have the protocol for 
their down-loading program to make it possible for someone in the club to write 
a down-loading program for the OSI. These are only some of the changes being 
made so all and all things are definitely looking up. We hope to have an 
article from David Lutz for our next newsletter giving more details of what is 
happening. 


The next meeting will be on Sunday 26th June at 2pm at the Essendon 
Primary School which is on the corner of Raleigh and Nicholson Streets, 
Essendon, The school will be open for members from lpm. 


The closing date for articles for the July newsletter will be Friday 15th 
July. 
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THE BEGINNING MACHINE LANGUAGE PROGRAMMER...ce.oeo.Part 12 
by David Dodds 


Last month in BMLP we left off in the middle of the development of a suite 
of subroutines to control the movement of the cursor of ARTIST. Each of the 
four routines calculates a new cursor position and then calls UPDATE, a routine 
which has the task of validating the proposed new cursor position, 


The tasks to be performed by UPDATE are fairly straightforward 
1 Check if the cursor is off the top of the screen 
2 Check if the cursor is off the bottom of the screen 

and if on the screen 

3 Restore the character under the cursor (the cursor character might be 
on the screen at the time) 
4 Update the cursor position 
5 Save the character under the new cursor position, 

In BASIC this might be accomplished by a line such as: 
IF NEWCUR > TV.TOP AND NEWCUR < TV.END THEN GOSUB,.... 

In ARTIST the details of the start and end of screen memory are | 
initialised into two locations known as TV.TOP and TV.END. In determining 
whether the cursor is off the top of the screen, as the 6502 can only handle 8 
bits at a time it is necessary to do the test in 2 parts, 

Firstly compare the high order bytes of NEWCUR and TV.TOP, if NEWCUR+1 > 
TV.TOP+1 then no further testing is required, If NEWCUR+] = TV.TOP+1 then 
compare the low order bytes. When NEWCUR is > or = TV.TOP then the cursor may 
be updated, 


The test for off the bottom of the screen is easier because increasing the 
value of the cursor by 1 will cause the NEWCUR+1 to become greater than 
TV.END+1 so that testing of the high byte only is required, 


This sequence in assembly language becomes: 
UPDATE LDA NEWCUR+1 ;test high order byte 


CMP TV.TOP+1 ;of new cursor position 

BEQ UDI stest further if equal 

BCC FAIL 

BCS BOTPGE scarry set if newcur >or= 
UD1 LDA NEWCUR ;test low byte of new cursor 

CMP TV.TOP | 

BCS NU20OLD scarry set if newcur > or = 

BCC FAIL 


‘BOTPGE LDA TV.END+1 ;test off bottom of screen 
CMP NEWCUR+1 
BCC FAIL 

NU2OLD LDA TVTEMP ;restore charcter to screen 
LDY #0 
STA (CURPOS) ,Y 
LDA NEWCUR. supdate cursor position 
LDX NEWCUR+1 
STA CURPOS 
STX CURPOS+1 
LDA (CURPOS),Y ;save new cursor character 
STA TVTEMP 

FAIL RTS 


Note:-— TVTEMP -where the current character under the cursor is stored 
CURPOS ~current cursor position 
NEWCUR -new cursor position 


MORE FROM THE WEST 
by Wayne Geary 


The revised version of the Word Processor that I wrote of in my last 
article (More from the West in Vol.3 No.7) although now residing in about 110 
bytes less than the original version still requires 108 bytes in excess of 2K 
to reside in EPROM. This can be accomodated in one of three ways:- 

1. Use of a consecutive block of memory. 

2. Placing the tables which require 130 bytes elsewhere in memory where there 
1S a space, | 

3, Placing the tables and Menu jumplist combined into a separate area where 
there is 208 bytes spare. 


The revised version now only uses page-0 addresses from $00 to S$A2, ie. 
about half of the original requirements. Also included are some mods to 
improve the various capabilities, for which thanks to Bert Patterson for the 
suggestions, 


Finally I have an Assembler source code for the revised version so that 
for those wishing to burn the Word Processor into EPROM I can provide a 
cassette dump of a version to suit (almost) anyones requirements if they 
specify their EPROM buffer area (to be less than $7FFF) and where exactly they 
wish the Word Processor to reside in their system. Cost of cassette dump 
would be $10 to cover the cost of the cassette and postage etc. 


I have just completed a Speech Synthesis Board based on the Votrax SC-01 
speech chip which is compatible with the 48 pin OSI bus of the C2/C3/C4 systems 
and should-.be fairly easy to connect to a Cl/Superboard, 


The board has both address and data buffers and uses port A of a PIA 
located at page $F7XX to control the SC-0l1 speech chip. Port B is taken to an 
edge connector for user expansion along with the SC-0O1l audio output. The last 
item on the board is a socket for a 2732 4K EPROM located at S$CXXX but fairly 
easily deleted or relocated to another area of memory. 


The board is about 20cm by 10cm, is single sided, tinned and drilled, and 
requires 46 links. Cost of the board including documentation and postagge is 


$25, 


At the above price anyone should be able to add speech to their OSI for 
about $150 which compares well with Dick Smith's Type and Talk for around 
$500. 


I have written an initialisation routine for the PIA and a small routine 
to drive the SC-01 which I can provide and intend to try(!!) and write my own 
Type -Talk algorithm which will go into the 2732 on the board. (Any takers for 
some help here?) 


My only request is that anyone who is interested write or order NOW, and 
not some time next year, Anyone who is interested can write to me at: 


HELP 


A call for help comes from Kev Goffey, he has an IDS Paper Tiger 4456 
printer with graphics option. Kev has not yet made use of the graphics option 
and is wondering if there is any other member with the same or similar printer 
with whom he can compare notes. Kev's address is: 
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Cuperboare 


Newsletter of tne Olto Superboard User Groun, 146 York Street, Nundah, 40912. 


EPROM PROGRAMMER TO SUIT RABBLE BOARD bu Bernte Wales. 


Design: The circuit uses the.I/O sceckets of the PIA and VIA on the Rabble 
board. The PIA, whicn requires more settings up instructions, is used to 
generate addresses, ana both ports are set for output. Port B = AO - A7 and 
Port A = A& - Al2. The VIA is used for control signals on port B, and for 
data in and out on port A. The circuit is desisnec for single raii +5 epvroms 
but will not suit 2552 or 2764 with different pin usage. If you must program 
these types, then a personality socket cesign woulc be needed, as weil as 
changes to the software. Tne circuit has been tried for 2716 and 2732, but 
not with a 2764. Wiring for the 2764 was based on an article in ETI magazine, 


February, 19383. It was assumed that this type was available from suppliers. 


Farts: With the exception of the programming power supply, some diodes 

and toggle switches, and a 28 pin zero insertion force (ZIF) socket, the 
major components required to make up this programmer are to be found on 

the Rabble expansion board. 


Power: A 30 volt unregulated supoly was usec to cerive the programming 
voltages of 25 and 21 volts. The 5 volt line was teken from the fused 
supply on the Superboard. A ground or common connection must <iso be suptlied. 


Software: The software to drive the programmer is in Basic anc is too long 
to reproduce in this newsletter. Two versions are availabie, one being well 
documented with REMs and the second a compacted version to use for tue 
actual programming. The software covers all functions associatea with Eprom 
programming. The program assumes the cata will be at $3909 for a 2732 and 
at $3809 for a 2716. 


More Info: More information and a full sized circuit diagram may be recuested 
from the User Group by sending a SAE. If the software is required, send us 
a cassette and include your address and one 27¢ stamp and one 40¢ stamp to 
cover the postage costs. More information will be included with your cassette. 
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VIA Port A = data 
Port B = control 


PIA Port A = addreas AS ~ Al2 
Port B = address AO —- AT 


— SUPERBOARD — 


SOFTWARE REVIEW : Onbiétal Lander. 


Orbital Lander is a rather quaint little Basic game of about 3k bytes. You 
control a rocket (lander) with a shift key. The direction of travel is 
vertical only. The rocket starts in mid-air, and you first have to bring 
down the rocket to gain extra fuel. Then you take off, and attempt to 
rendezvous with an orbiter which travels continuously from left to right 
across the screen, and at various altitudes. 


The rocket behaves as you would expect,and doesn't stop moving immediately 
when you burn fuel, or cease to do so. You get to safely land,then dock with 
the orbiter, or bust up to ten rockets in the attempt. The program then 
comments on your skill (or lack of it). ) 


It's all rather boring after the first couple of goes, and you don't even 
get a spectacular crash when you fail to dock and, out of fuel, plummet 
to the surface. 

Orbital Lander is an Aardvark program, and is in the OSUG Library. 

Bernie Wills has changed his Basic 1 Eprom so that the line feed after 
printing the OK message is prevented. This is a big improvement in the 


12 x 48 mode. Original code: $A192 OD OA 4F 4B OD OA OO 
New code : $A192 OD OA 20 4F 4B OD O00 


The prompt now becomes OK, and when you start typing, you overwrite OK. 


NEATLY DOCUMENTING PROGRAMS by Bob ELQéis 


It is truly amazing that you can play around with a computer for years 
without ever finding out everything about it. For example, Microsoft Basic 
will support an alpha string after a GOSUB or GOTO, making for neat 
documentation. This program will run:-., 


10 PRINT'TEST": GOSUB 30 PRINT 1-10: PRINT"END" 
20 GOTO 40 END PROGRAM 

30 FOR R=1 TO 10: PRINT R;:NEXT: RETURN 

40 END 


SUSPECT OLD ADAGES by Ken O'Rourke 


Basic programs run faster if you put all the statements on one line using 
colons! Big line numbers make programs run slower! True, or false? 

Both statements are true, but the difference is insignificant. Try it! 
Much more important is what you put after NEXT. 


10 FOR R=1 TO 1000:FOR X=1 TO 60:NEXT X,R takes 77 secs at 1MHz clock. 
20 FOR R=1 TO 1000:FOR X=1 TO 60:NEXT:NEXT takes 61 seconds, 20% faster. 


What about defining the most used variable, X. Adding line 9 X=0 makes for 
a 3 second improvement with line 10 and no change with line 20 (10 deleted) 
If we define the other two numbers as variables as below, we gain 2 seconds. 


9 Z=60: Y=1000 
10 FOR R=1 TO Y:FOR X=1 TO Z:NEXT: NEXT takes 59 seconds. 


A situation where you do get a big change is when poking to a screen in a 
game. 

10 X=54000: Y=0: FOR R=1 TO 10000:POKE X,Y:NEXT takes 26 seconds. 

10 FOR R=1 TO 10000:POKE 54000, 0:NEXT takes 65 seconds. 


Does GOSUB work faster when the routine is in early line numbers, or when it 
is as near as possible after the line which calls it? Try it! 


5 Ed Richardson. 


MY SUPERBOARD II SERIES 2, Part 3 
by John Whttehead 


The Stack, Non-maskable interrupt and Real Time clock, 


The 6502 stack is in page one ($0100 to SOIFF) and is used by the 
processsor as a last in first out temporary store for subroutine return 
addresses, etc, 


The stack is initialized by putting its start address into the 6502 Stack 
pointer register, The stack grows downward when data is Pushed into it, and the 
stack pointer is decremented to point to the bottom of the stack, The stack 
goes up when data is removed. The Monitor ROM (65V) initializes the stack to 
$0128, BASIC to SO1FC and Exmon to SOIFF. 


The Non-Maskable Interupt (NMI) is a hardware input to the 6502 on pin 6. 
When this pin is driven low the 6502 stops running its present program, loads 
the program counter and processor status registers onto the stack for later 
use, then puts the contents of SFFFA and S$FFFB (which is $0130) in the program 
counter, The 6502 then Jumps to $0130 and runs the program found there. This 
program ends with an RTI (return from interrupt), and the 6502 then goes back 
to the original program. 


The Real time clock hardware is simply a single pole on/off switch that 
connects the vertical sync clock pulse C15 to the NMI pin of the 6502, The 
software displays the time at the bottom of the screen below the guardband to 
prevent it scrolling up the screen. The original program in KAOS July 81 
contained a JMP $0000 which caused problems when running machine code programs. 
I have removed this and added an alarm.display. 


Due to the NMI vector at $0130 being in the stack (which can only be fixed 
by changing the Monitor EPROM), the computer will stop running if the stack 
grows down to $0132 and changes the interupt program pointers, but this does 
not normally happen. 


I have the clock program in EPROM at SE000 and it uses my scratch pad RAM 
at $CCOO to store the time. The BASIC program below puts the program into page 
two from $0222 onwards. 


put JUMP here 
to NMI routine 


NRO Re © 
NO f 


0222 NMI routine could 
be put here 


0300 Start of BASIC 


ie 
°) 
Al 30 | NMI vector contains 
B} 01 | 0130 


50000 
50010 
50020 
50030 
50040 
50050 
50060 


PRINTCHRS(127)"Real time clock 

PRINT" modified with alarm by John Whitehead 

PRINT: INPUT"Set time(hr,min)";H,M 
GOSUB50250:POKE736, H: POKE737 ,M: POKE7 38,0 

PRINT: INPUT"Set alarm time(hr,min)";H,M 
GOSUB50250:POKE740, H: POKE741 ,M: POKE742,, 0: POKE743, 255 
POKE304 , 76:POKE305, 34: POKE306, 2 


50070 
50080 
50090 
50100 
50110 
50120 
50130 
50140 
50150 
50160 
50170 
50180 
50190 
50200 
50210 
50220 
50230 
50240 
50250 
50260 


DATAZZZ : READAS: IFAS€)"ZZZ"'THEN50070 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
FORC=0TO183:READI:POKE 546 +C, I: NEXT 
PRINT: PRINT'Turn on NMI switch": END 


H=INT(H/10)*6+H:M=INT(M/10)*64+M: RETURN 


THE OHIO PRINTER STANDARD ON OS65D 
by Michael Lematre 


72,206, 227,2,208,112,138,72,152,72, 248,169, 60 
141,227,2,162,2, 24,189, 224,2,105,1,157,224,2 

202 ,48,11,201, 96, 208,16,169,0,157, 225,2, 240 

233,201,19,208,5,169,1,141, 224,2,162,2,160,8 

189,224 ,2,32,159,2,169, 58,153, 238,211,136, 202 
16,241,162,2,189,228,2,221,224,2,208,6,202,16 
245,238 ,231,2,173,231,2, 208, 24,162,0,189, 
2,157, 230,211, 232,224,5, 208,245,173, 226,2,106 
144,5,169,65,141, 230, 211,104,168,104,170, 
64,97,108,97,114,109,32,166,2,74,74,74, 74,72 
41,15,9,48,153, 238,211,136,104,96, 32,238, 
32,235,255, 32, 238,255, 56, 233,48,10,10,10, 
141,227, 2,32,235,255, 32,238, 255,56, 233,48, 24 
109, 227,2,96, 255, 255,255,255, 255,255,255, 


154 
104 


255—° 
10 


255 


LFH}120RM}590RS9 59THENPRINT" Illegal time':GOTO50020 


There has been a fair amount of dissention over where to put the printer 


port on Ohio disk machines - basically, should it be device #1 


or #4, 


According to the Ohio standard, the printer should be run by a parallel 


interface (Centronics), implemented with a PIA, on device #4, 


Devive #1 is 


meant to be a serial port to a terminal (eg. on C3's); alternativly, on a 
memory mapped video system, it can be a cassette interface or modem, 


The reason for adhering to such a standard is to facilitate the transfer 
of software between machines - this is why CP/M is popular; not because of any 
good features, but because of the vast supply of (or market for) software for 


any machine running CP/M. 
Implementing the device #4 printer driver: 


Output routine for OS65D: 


* = $249F 
STA $C0O04 send char to printer, 
DEC $C006 _~ strobe printer 
INC SC006 
LOOP LDA S$C006- check busy 
AND #02 
BNE LOOP 
RTS 


PIA initialization in BEXEC* 
P=49156:POKE P,255:POKE P+1,4:POKE P+2,1:POKE P+3,4:POKE P+2,1 
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AN IMPROVED KEYBOARD ALGORITHM Pt2 
by Rodney Eisfelder 


As promised last month here is a listing of the new, improved keyboard 


routine. 


100; REVISED KEYBOARD nOUt INE 

1205 REPLACES Kom ROUTINE AND IS DESIGNED TO 
£493 SCHAVE GikE A NORMAL COMPUTER TERMINAL 
2695 iN THAT SHIF? LotK ORLY ArFeCyS ALPHA KEYS 


Zit} RsEISFELDER EC 3 1982 


2403 

133} VERSION MAYZ4 1983 
280 

via} « SPECIFICATIONS ARE: 
3263 

350} Sik LS 23 AL NO SP 

569} 3 9 GLC NN NM 

309: £0 1 US SH NN 

400; G 1 0 UC SH NM 

#20; 0 of 1 US SH NM 

4403 

460; 1 0 0 UC NN NR 

480; 1 0 1 US SH NA 

500} 1 1 0 US SH NK 

520; 1 1% 1 US SH NM 

5403 


560; WHERE SLk MEANS SHIFT LOCK 
580} LS/RS MEANS LEFT/RIGHT SHIFT 

400; AL MEANS A-Z 

620: NO MEANS 0-9 AND PUNCTUATION (3,1-./ 

640; SP MEANS ESC,LF,CR,RUBOUT, SPACE 

abd; LC MEANS LOWER CASE LETTER 

680} UC MEANS UPPER CASE LETTERS 

700; US NEANS UPPER CASE AND SPECIAL (SHIFT K 10 P) 
720; NM MEANS NORMAL (THE LOWER CHARACTER ON THE KEY} 
740; SH MEANS SHIFTED (THE UPPER CHARACTER ON THE KEY) 


780; WE CAN REUSE THE PUT ROW AND GET COLUMN 

800; ROUTINES 

S20PUTROW = SFCBE ;ON CIP 

B40GETCOL = SFCCe 50N CIP - PRESERVES ARY,RESULT IN X 
B60GETCL2 = SFCCE ;GM CIP - RESULT IN A, X&Y PRESERVED 
880; 

900; FOR THE DISK VERSION, IT WOULD BE BETTER 
920; IF THE FOLLOWING FOUR VARIABLES WERE 

940; PUT SQHEWHERE ELSE, BUT WE WILL LEAVE THEN 
960; ON PAGE 2 FOR COMPATABILITY WITH THE 

980; EXISTING ROUTINE 

$000; 
iS2QRESULT = $213 

{G4CTTONT = $214 

ICEQ@AUKEY = $215 

iUSGOLDKEY = $216 
.LGCELTNUM = $FDC8 jREUSE THIS ROUTINE 

1120; 

1140; REUSE THE TABLE OF CHARACTER VALUES. 

1160; NOTE THAT THE TOP BIT OF EACH CHARACTER 
{1803 IS IGNORED IN THIS VERSION 

1200; 

L220TABLE = SFOCF 

1240; WE SAVE FIVE BYTES BY USING A DELAY ROUTINE 
12605 PROVIDED FOR THE DISK BOOT 

(ZBOWL250U = SFCPL sWAIT L250%X MICRO SECONDS 
1506; 

13203 THE TECHNIQUE OF HIDING INSTRUCTIONS WITH 
1340; A ’BIT’ IMSTRUCTION SAVES A BYTE, BUY MUST 
1360; BE USED WITH CARE 

(380BITOP = $2C ;OPCODE OF BIY abs 

1400; 

1420; The first half is basically identical! to the 
1440; original OSI version. 
14600R6 = $FDOO ; CHANGE ORG TO PUT THIS ROUTINE IN RAN 


1480Kr083 2680; 


1300 TXA ;SAVE REGISTERS 2700 NOW COMES ThE NE@ ALSORI TAM 

1520 PHA 2720; 

1340 TYA 2740 LvA fa 

{340 PHA 2740 J5K PUTRGe 

IS8OSTARTL LDA #1 SFOR FIRST ROW 2780 JSR GETCOL ;GET COLUMN IN X 

L600NEXROW JSR PUTROW 2800; 

1620 JSR GETCOL 28205 CHECK IF KEY IS BETWEEN $21 AND SSF (' AND ?) 
1640 BNE FOUNDS 2840 LDA RAWKEY 

1660TNEXT ASL A SFOR NEXT COLUMN 2840 CMP #$2! 

1680 BNE NEXROW 2880 BCC CNTLKY 

{709 BE@ CLRPRV SCLEAR ANY PREVIOUS KEY INDICATO 2900 CMP #$7F 

{7Z20FGUNDS LSR A . 2920 BE@ CNILKY 

1740 BCC REALKY ;NOT JUST SHIFT/CONTROL KEYS 2740 AND #$40 

1740 ROL A ;RESTORE A 2780 BE@ CHSHi6 ; BRANCH IF IT IS A NUMBER 
1780 CPX #$21 ;SHIFT LOCK AND ESC 2980: 

1800 BNE TNEXT 3000; NOW HANDLE LETTERS 

1820 LBA #$1B ;ESC SOZ0LETTER TXA 

1849 BNE COMPRV 3040 AND #$40 ;CHECK FOR CONTROL 

{8S0REALKY JSR BITNUM ;FIND BIT NUMBER OF ROW 3060 BNE £44 

1880 TYA 3080 TXA 

1900 STA RESULT 3190 AND #7 SEE IF THERE ARE ANY SHIFTS 
1920 ASL A 3120 BE@ E32 jNO SHIFTS MEANS LOWER CASE 
1940 ASL A 5140 LDX RAWKEY ;CHECK FOR SPECIALS (K TO P) 
1960 ASL A 3160 CPX #$51 5(='@") 

1980 SEC 3186 BCS NOTSPE 

2000 SBC RESULT 5200 CPX #948 5 (='K") 

2020 STA RESULT ;ROW NUMBER TIMES 7 3220 BCC NOTSPE 

2040 TXA 32465 

2060 LSR A 3260; THE KEY IS A LETTER BETWEEN "K” AND ’P’ 

2080 JSR BITHUM ;FIND COLUMN NUMBER 3280; 

2100 BNE CLRPRV 3300 CMP #2 LOOK FOR RIGHT SHIFT ONLY 
2120 CLC 3320 BEG E16 a4 

2140 TYA 5340 LOR A 

2160 AGC RESULT 3360 BE@ EO  $SHIFT-LOCK ONLY 

2180 TAY 3580 BCS E16 SHIFT LOCK AND SHIFT 

2200 LDA TABLE,Y 3400; ELSE NOT SHIFT LOCK AND LEFT SHIFT 
2220 AND #$7F S4270NOTSPE = 45 ‘NORMAL’ LETTERS AND SOME SHIFTS 
22405 S440CNTLKY = #5 CR,LF etc IGNORE SHIFTS HENCE EGR #0 
2250} Compare this key with the previous iteration. 3460E0 LDA #0 

2280COMPRV CHP RAWKEY 3480 BEQ COMPAN COMPUTE ANSWER 

2300 BNE DIFKEY SSOOCHSHI4 TXA 

2520 DEC ITCNT 3320 AND #6 ;MASK OUT EVERYTHING EXCEPT LS/RS 
2340 BE® STITER 340 BE@ EO sNEITHER LEFT NOR RIGHT SHIFT 
2360 LOX #4 SI60E16 LDA $10 

238¢ JSR WI2Z50U ;WAIT 481250 MICRO SECONDS 3980 ~BYT BITOP 

2400 JHP STARTL Sé00E32 LDA #$20 

242GCLRPRV LDA #0 3620 » RYT BITOP 

2440 STA GLDKEY S640E64 LDA #540 

Z4600TFKEY STA RAWKEY S660COMPAN EQR RAWKEY 

2480 LDA #2 ;ITERATION COUNT WHEN NEW KEY HIT 3680 STA RESULT §$THIS IS THE FINAL ANSWER 
2500 STA ITCNT 3700 

2020 BNE STARTL ;BRANCH ALWAYS, START AGAIN 3/20 TAY RESTORE REGISTERS 

2540; 3740 PLA 

2060STITER LDX #996 {ITERATION COUNT TO START AUTO REP 3760 TAX 

2080 CMP OLDKEY 3780 LDA RESULT ;RETRIEVE CHARACTER 

2600 BNE STOIT 5800 RTS 

2620 LOX #$14 ;AUTO REPEAT ITERATION COUNT 

2640STOIT  STX ITCNT 


2660 STA OLDKEY 


FOR SALE 

48K APPLE II PLUS with interger card, parallel interface, serial interface, PAL 
colour card, 5.25' disk drive, ID 440 Paper Tiger printer with graphics cap., 
B/W monitor plus lots of software $2500.00. 

Also 4 x C1P SII with 8K RAM, DABUG, robust cases, One with Ext/Mon & WP6502 in 
ROM, all are set up to comunicate with the APPLE II via a serial port, 
Switching device and software included, Suit school $1500.00. 

Contact NOEL DOLLMAN | 


SUPERBOARD II disk system 40K, RABBLE expansion board (PSG's VIA/PIA), MPI B51 
disk drive, 22 disks, manuals and documentation, Sell for only $990. 
James Grigg 


SUPERBOARD II with case and power supply. 8K RAM, DABUG II, screen format 
48X30, software inc. $350.00 ONO. 
Contact Rod 9 


CIRCUIT DESIGN 
by Ron Cork 


Here are two short routines for those of you into circuit design, doing an 
electronics course, or just like to collect such things to fill up file space, 
They were adapted from a text book and will calculate both the DC parameters 
and the AC small signal values, (hybrid equivalent circuit), of a transistor 
amplifier circuit and a JFET circuit. The programs also display, (screen 
only), a fully labelled circuit diagram, showing all the correct parameters in 
their correct places, The screen pokes were built up over a few weeks and are 
pretty raw so, unfortunately, are not directly adaptable to the various screen 
formats currently in vogue and I lack both the time and incentive to clean them 
up, (I count myself lucky to have found the time to even write the routines in 
the first place). 


fl REA The only disk commands itn tAits program are *DISK!*CL’ 
2 REA fer screen clear and #4DV for device number. 

J REM These can be deleted without any rll effects. 

4 REL 

S REM All values over 999 are entered and displayed fn 

& REN computer exponent jargon, !.e. L,.5£35 for 1.5K oAms. 
? REA and 2.17 623542E-O35 for xxxx mrili amps. 

8 REA 

? REN The screen pokes are for 64x64 screen - C4#P 

LO o: 

Ll DISKA!*CL*” 

20 PRINTTABCLI2Z2>I35°¢(O) Copyleft --- RwA.Caork ---“:PRINT:PRINT: PRINT 


JO PRINTTABCS); “These routines can be copied without the explrert 
FO PRINTTABC9 D>; "sanctron of the above copyleft halder.” 
SO FORQ=17TOS: PRINT! NEXT: FORQ=1TOIJOOOISNEXT 

60 DISK/S*CL 

70 PRINTTABC LIS) *DC and AC Avybrid Crreurt Analysis 

80 PRINTTABS 15) 77 -- nme er rrr rss 

PO FORQ=I1TOLO: PRINT: NEXT 

L00 PRINT"DCO crrcurt anal ySiS..asanaae Daa et LSP SE RPRINSG 
L£L0 PRINT*AC Avybrid crrcourt anal ysSisSaasaaenas C27": PRINT 
L20 PRIANT“End program & return ta BEXECX...¢3? 

L30 PRINT: INPUT*“Your cAaotce “3A 

L48O OQNAGOTOLIEGO ,540, 1040 

L50 PRINT: PRINT 

L60 DISK!/"CL* 


YO FPRINT TAB CG) 2 HSS Se 2S eS ee Hee See SSS SSS SS Se Se "“:PRINT 
L180 PRINTTAB(8d": Tats program calculates the DC bras :*~:PRIANT 
L?0 PRINTTABC(S>”: for a voltage-adivider fbraseds 2“ :PRIANT 
200 PRINTTABCED": emrtter-stabilized cirrceurt. 2 "“:PRINT 
ZIO: PRINTTABCE) ©2223 SSS Se SS SSS SSS 3443+ SSeS eS See “:PRINT 


£20 FORGQ=17TOS: PRINT: NEXT 

230 PRINT*Use Rb2 = LE30 for R62 = infinity." :PRINT 

240 PRINT: PRINT“ Input the appropriate errceurt values.“ :PRINT 
250 PRINT: PRINT:PRINT"Voltage-adivider bras resistors :-“:PRINT 
260 INPUT" RELI ="3;R1L 

270 INPUT*RE2 ="3R2 

280 INPUT"“Emittter resistar - RE ="3RE 

270 INPUT*“Collector resistar - RC ="3;RC 

S00 INPUT*“DE supply volts - Vee ="5;8V 

3l0 INPUT*Beta CHFED ="58 

320 DISK!"CL":GOSUB1400 

330 PRINT#DV 

240 PRINT#DV , “The resulting DC bras currents are :-* 
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PRINT#DV , "---------------------------------- “:PRINT#DV 
UT=R2XSV / CRLFR2Z) 2 RT=CR2Z/ CRI tR2) RI 


LB={VT7-O.7) 4 CRTt+BXRE > 

IC=BXIB 

LE=CBtALIKXIE 

PRIANT#DV, “ZB = “;7TB;* amps” :PRINT#DV 
PRINT#DV," IC = “3203 "amps" :PRINT#EDV 
PRINT#DV, *“ZE = “TEs * amps” :PRINT#DV : PRINT#DV 
PRINT#DUV ,"TAe DC voltages are :-%* 

PRINTED 52 22352353 FS SSS SSS > *“sPRINT#DV 
VE=LEXRE 2 VB=VE*O.7:2VEC=SV- ICXRESVX=VE-VESGOSUVBL4&EO 
PRINT#DV,*VB = “3VB3*volts”:PRINT#DV 
PRINT#EDV,*“VE = “SVE3 “volts” :PRINT#EDV 
PRINT#OV, "VCO = “3VC3*volts*:PRINT#DV 
PRINT#DV , “VCE = “SVUX3 “volts” 

GOSUBLIIOGO 

PRINT: PRINT: INPUT“Another “3 


LFYB="Y¥" THENLGO 
GOTOSO 
DISK! *CL 


PRINTTAB(@) "~~-----~----------------- - - 


PRINTTAB(B)": TAIS program calculates the AC parameters 
PRINTTAB(8)": of a crreurt using the Hybrid Equivalent 


PRINTTAB(BD": c#rrcurt model. 


PRINTTAB(B) 8 ---- -- nn nnn rrr 


FORQ=17TOLO1PRINT NEXT 

PRINT“Enter the following ctreurt component values :- 
PRINT:PRIANT:PRIAT 

INPUT*"“RBI = “sRL:2PRINT 

INPUT“ RB2 = ¢Cuse L230 rf tntfinrtted "3R2:2PRINT 
INPUT" RCO = "3 RE2 PRINT 

INPUT"“RE = (Cunbypassed value antly)d “;RE:PRINT 
INPUT“Load resistor RL = «use L£30 fF output apen)d “RL 
PRINT 

PRIANT“Now enter values for the transister Aybrid “3; 
PRINT“equivalent crrceurté :-%* 

PRINT: INPUT"Hire = “SAL 

INPUT*“*HFe = “sAF 

INPUT“ Hoe “;HO 

INPUT“Are = “;HR 


. 
= 


REM AC crrceurt calculations 


R3S=RIXCR2ZI CRLFER2> > 
RP=ROXCRLICRO#RL > > 
D=1+t+HOXRP 

£I=HI- AFRARKRP 1D 
AL=ATRSICRIFLID MK CHF ID? 
AV=AFRERP I CAI+ CH IXHO- HFRHRIXRP > 
ZL=RIXC LIM ERS+ LIDS 
¥2=HO- AFRAR 1 CHIFRS? 
LFYZ=OTHENZZ=LE3O:GOTOBEaEO 
22=LIy2 
LO=REOXCZ2ZI CREO FL 2) > 

AP=ABS CAVXAT> 


DISK!*C€L 

GOSUBIEO0 

PRINT#DV: PRINT#EDV, “Results of AC efrreurtt analysis are : 
PRINT BOY 5 7222S SSS SS Se SSeS SS SS SS SS Se SSeS “:PRINT#DV 


11 Next page please 


940 FORQ=1LTOLF:tPRINT#DV : NEXT 


50 PRINT#DV, “Current Gain Ar “ALT 
50 PRINT#DV, “Voltage Gain Av = *;AV 
70 PRINT#DV, “Input Impedance ZF = “~“3iZl3 "ohms" 
VEO PRINT#EDV, “Output Impedance Zo = “~“3Z0;"oAms* 


¥9O 

L000 
Lolo 
£020 
LO30 
L040 


PRINT#DV,”“ Power Gain 
GOSUBIOSGO 

INPUT’ Another “3; 
LFYB="Y¥" THENSF#O 
GOTOQ6O 

DISK! *SE A” 
LOSO RUN” BEXECX* 
L960 REN Crrcurt diagram pokes for 64xé4 screen 
LOGS +: 
L070 


AP “3 AP 2 PRINT#EDV : PRINT#EDV 


=S54378 : RES Right screen location 


1080 
1090 
1100 
11LL0 
L120 
1130 
L140 
1150 
1140 
12470 
1180 
L190 
1200 


L210 


£2290 
L230 
L240 
L250 
L240 
L270 
L280 
L290 
L300 
L310 
L320 
L330 
L340 
L350 
L360 
L370 
i380 
L590 
L400 
L410 
L470 
L480 
LEO 
£500 


POAEP-5;, 148: POKEP-4,148:POKEP- 35145: POKEP-2,147 

POKEP-1, 148: POKEP, 148: POKEP #1, L488: POKEPA+2, L48:POKEPYA+S, 148 
POKEP*#4, 148: POKE PAS, 148: POKEP +S, 147 
POKEP-S8,1L147: POREP #705147: POKEP-S5S7, 189 :POKEPH#Z Ls LP 

POKE P- 63,147: POKEP?E5S ,147:1POKEP- 127 5147:POKEPAL2? 147 

POKEP- 190,189: POKEP- 254,190: PONEP- 318,189: POKEP- 382,170 
POAEP#194, 190: POXEPAZ5SS L189: PONE PAS 22,190: POKEP#+3IES;, 189 
POKEP#+450,146:POKE PASI 4, L146: POKEP-F445,146:POKEP-S10,146 

POKE PAI SG, 146: POKE PA 200,190: POKE PAZ 54 6 LEP: POKEPAFSZ38, 190 
POKEP#IGP2Z L899: POKEPFESS, 146: POKEPAHS ZO, 146: PONEPAHS8S, 1/77 
POKEPF#5894 5,175: PONE PAS 7 71277 2 POREP AS? Bel ZFS: POKEP- G63 226 

POE P-S74,144:POKEP-S73 5144: POKEP-S725144:POKEP-S71,144 

POKE P-570,144:POKEP- S59, 1442 POKEP-5S685 144: POKEP-S6? 1144 
POKEP-S66,144:POKEP-S5S65 7144: POKEP-S64F , L149: POKEP-S4h35 144 
POKEP-562,144:POAEP-Sh1, 144: POKEP-S59 53219: POKEP-S357 5,864 

POKEP- 554,99: POKEP-S555 999: POKEP- 320549: POKEP- 321,66 

POKEP- 322,82: POKEP*AS1I9; 8@2:POKEPtHSL19 » b6: POKEPHIZO s SO 
POKEP#I3I30;82: POKEPFS 31,69: POKEP- 120,148: POKEP-184,189 

PONE P- 248,190: POKEP- 312,189 2POKE PO 3765190: POKEP-4E405, 146 

POKEP- 504,146: POKEP- 310,82: POKEP- 309,367: POKEP-1195148 

POKEP- 128,148: POQKEP-1L17,148:POKEP-115; 146: POKEP- 115,147 
POKEP-114%,198:POKEP- L135, 148: POKEP-L2i21228:POKEPHO, 7/2 

POXKEP #10570: POKEPA+11,89:POKEP- 0,20: POKEP- 251,66: POKEP-252;86 
POKEP- 124,149: POKEP- 380,149: POKEP-444,15:POKEP-8,i8 

POKEP-9 L482 POKEP- 11,1051 POKEP- 12,902 POKEP- 110,22: POKEP- 108,90 
POAEP-107,111:2POKEP-177 120: POKEP-2415149:POKEP- 370386 

POKEP- 369,87 2 POKEP-49 7,15: POKEPAZ0O2, 135: POKEPAZOS s LI5 

POXEP #204, 135: POKEP#ZO5;, 135: PONEP F206; 135: POKEPFZ0O7 135 
POKEP#*+271,1462POKE PAS 35,149: POKEPTH4ESGS 8S POKEP +E SFA» GF 

POKEP#5SE 1,20: PONE PALES, 20: POKEPHZE8, BS: POKEP FZ S 1&7 2 POKEPHEO, GF 
PONE P-49 516 

RETURA 

DV=H2: INPUT” Dump to printer 
LFLEF TREY Ss LI="¥" THENDV=4 
DISK!*CL" s: RETURN 

VEH=IANT CVEXLIOOD /L002:VB=IN7 CVBXLIOO / L100 
VC=INT CVEXLOOD SLOOLVUK=INT CVXXLOOD / L100 
RETURN 


“3s 


The listing of Ron Cork's second program will be in next months newsletter. 
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ORDER OUT OF KAOS 
by Frank Nteholttls 


Choosing a sorting algorithm involves careful examination of the material 
to be sorted. Sorting routines vary markedly in speed and the rate of sorting 
depends on the number of items and the degree of existing order, 


If N items are randomly arranged, the speed of a bubble sort varies as 
NZ, of a Shell-Metzner sort as N/-© and a Quicksort as N x log N, These 
differences are marked when N is large; for 1000 items the speeds are roughly 
in the ratio 1 : 4 : 150, These differences fall off for smaller groups, e.g. 
for 100 items the ratios are 1: 2: 20, 


However, if the data are almost in order the comparison can change, since 
the sorting methods vary in the number of swaps and comparisons involved, 


I recently used the three sorting techniques to sort 100 3-digit numbers 
with the following results: 


Numbers Arranged: Quicksort Shell Sort Bubble Sort. 
Randomly 19 sec 30 sec 112 sec 
In Order 89 sec 10 sec 69 sec 
In Reverse 91 sec 19 sec 179 sec 


I then used a split sorting arrangement in which the numbers were sorted 
in groups of 50 and then merged. The results were: 


Numbers Arranged Quicksort Shell Sort Bubble Sort 
Randomly 25 sec 20 sec. 65 sec 
In Order 49 sec 13 sec 28 sec 
In Reverse 50 sec 20 sec 90 sec, 


Merging the sorted lists involved about 2-3 seconds of these times, It is 
clear that the split Shell sort can give fast sorting irrespective of the 
degree of disorder of the list. 


DABUG EDITING AND CTRL B FOR THE ASSEMBLER 
by John Whitehead with help from David Dodds 


Below is the source to enable the Assembler/Editor to be used with a 
Superboard series 2 in 24X24 or 48X12 with on screen editing. 


It may work on other OSIs if line 560 goes to the DABUG initialize 
routine, 


To use the source below, load the Assembler, change the source file 
workspace start at $12C9 and $12CA to start at $1440 as page 26 of the manual. 
Type in the source, Assemble it using A and if there are no errors, save it on 
tape. Then use A3 to put the code into memory. ‘Press the BREAK key, M 1300 G, 
then answer INIZ? with N. Now try out all the DABUG control keys. 


The line feed key is now TAB and’ E takes you to the monitor. This can be 
changed in line 630 to go to Exmon in EPROM. 


To make a new tape use the token Checksum copier by A. Cashin in 
conjunction with the article in KAOS Sep.82 about Basic at any Address, 


13 Next page please 


10 %* = $1300 350 CPX #%00 


20 IMP DABUG 360 BNE M1 

30 ¥ = $1315 370 PLA 

40 -BYT SOA ;line feed 380 TAX 

50 % = $i3it1 390 PLA 

460 JSR INPUT 400 RTS 

7QO ¥ = $1333 $910 PULL PHA 

80 IMP OUTPUT 420 TXA 

90 % = $1i3Byi 450 PHA 

100 INPUT JSR PUSH 440 LDX #$EO 

110 LDA #00 450 Me LDA $00, 

nee Boe eae 460 STA SPACE+$20-SE0, xX 
130 JSR $FFEB 470 LDA SPACE-SEO, x 
146 BidA 480 STA $00,x 

150 LDA $0E 420 INX 

160 BE@ NOBACK 300 CPX #00 

170 SHIFTO DEC $3F 310 BNE M2 

180 INC $0E 320 PLA 

190 BMI SHIFTO 330 TAX 
200 NOBACK PLA 340 PLA 

210 TAX 550 RTS 
2a eee SIGE 560 DABUG JSR $FAAL iswitch to DABUG 
230 QUTPUT JSR PUSH abe JSR PULL 
240 JSR $FFEE 380 JMP #1160 

oa5 aM CUCL S90 INOFF LDA #%$BA ;DABUG input off 
260 PUSH PHA 600 STA $0218 

270 TXA 610 LDA #%$FF 

280 PHA 620 STA $0219 

290 ne AEE 630 IMP $FEOO 

300 Mi LDA $00, pais SPACE 

310 STA SPACE-E0,x 650 * = $0670 

320 LDA SPACE+$20-$E0, x see _— IMP INOFF 

330 STA $00,X oa 

340 INX | 


KAOS-WA 


Each meeting, our small group seems to be growing and at our May meeting 
two new members were introduced, At this meeting three members brought their 
computers along and we were able to compare notes and see how different people 
have developed their systems. The three systems were all cassette based Cl's. 
Wayne Geary showed us his speech card which he has developed and gave us a 
demonstration. We were also able to try out a game which he has devised. On 
Graham Gaiger's system we were able to see BASIC 5 and TOOL-KIT demonstrated. 
The other system was brought in by Arnold Shepperson, 


We also decided to start our own library, and Arnold volunteered to be our 
librarian, At this point the library contains some past editions of PEEK(65), 
AARDVARK magazines and a list of tapes in the main library. Any KAOS-WA member 
may borrow from the library after paying a $5 fee. We have also subscribed to 
PEEK(65) and these will join the library as they arrive, Members who wish to 
obtain a magazine from the library can do so at meetings or by phoning Arnold 
on 322 1388 (WORK ask for WORKSHOP) or 279 7656 (HOME). To administer the 
library fee Jo Fisher volunteered to be treasurer, so would members who were 
not at the last meeting but who wish to borrow from the library, please forward 
$5 to Jo at pay at the next meeting. | 
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Our next meeting is to be on Sunday 17th July on the top floor of Guild 
House 56 Kishorn St, Mt Pleasant at 2pm, all OSI computers welcome. Peter 
Hughes has advised me that the following meeting in September will not be able 
to be held at Guild House, so would members please give some thought to another 
venue for this one meeting only. See you on the 17th of July. 

Gerry Ligtermoet 


QUEENSLAND USER GROUP MEETING, 15th MAY 1983 
Attendance: 15 members, 3 guests. Computers: 4 working, 2 not 


The meeting started at 12 noon. Robin Wells arrived first with his fully 
built twin disk system. He and Paul Brodie were busy writing a M/C 
program to enable selection of the various S.E.K. screen formats from a. 
menu. Alan Calvert's S.E.K. had not yet arrived. 


Brendan Vowles had also upgraded to twin disks and had planned to give a 
demo of a music program, but hadn't got it going in time. 


Doug Robinson had his cassette based series II along. He had some trouble 
with Bernie Wills' Tasker RAM board, and as the memory size kept changing 
on coldstart, it seemed that a 2114 had expired, a regular occurrence. 


Tony ?, a friend of Nick Zuryn, had brought along his eprom programmer 
which wouldn't go. Some of the group hopped in to help, and soon detected 
that the 8T28s were missing from the Superboard. Doug Robinson was keen 
to see it going, and tried to talk Tony into using wire links, but at the 
last moment, he decided to wait and install the chips. | 


Bob Best discovered to his horror that his C4 had quit. On a break, the 
screen cleared and a "C" was printed. The machine refused to communicate 
further. Unless it turned out to be socket problems, I figured the 
monitor ROM might be stuffed, an ideal excuse for Bob to upgrade to a 
Dabug! 


Much interest was shown in Bert Patterson's very economical 16K RAM 
board, reviewed in the May KAOS. This expansion board will now go into 
my system, giving me 24K RAM and, with Bert's Eprom Extender, 18K of ROM. 


Trevor Stephenson demonstrated a very useful looking M/C debug routine, 
which had yet to be completed and documented. Brian Schneider had fitted 
a disk to his system. 


The news that the Electronic Circuit had sold out of their Ohio stock, 

with twenty Superboards going for between $50 and $100, was met with a 

stunned silence. I was rather peeved that I had not been told when they 
were reduced to $150 (and none sold). 


John Froggatt arrived a bit late, and he and Brendan stayed until it 
started to get dark. Finally, the plugs were pulled at 6.10pm. 


Ed Richardson. 


IS ANYBODY OUT THERE 


_ One of our members, Ken Maclean, who lives in », would like 
to contact some radio amateurs, Computers being a bit scarce on the ground 
around Gulgong, and phone calls being very expensive, Ken would like to use his 


radio to converse. Ken's call sign is and he operates on the 40 or. 80 
metre bands, 


: - | 
FOR SALE 
C-4P, with 32K, 2MHz, one 8" DSDD Floppy disk drive, 22 diskettes inc, Compdos 
1.3, Pascelf, home-grown word processor, games, Modified B&W TV, Microline 80. 
+ 1.5 boxes of paper; 2 joysticks and much documentation, Will separate, 
$1900 ono. Contact Peter McLennan | 


* 


R65C02, R65C102, R65C112 Microprocessors 
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